From d836c9b24adc6223aebb1e928771b759d853a324 Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Tue, 28 Nov 2000 05:10:20 +0000 Subject: [PATCH] (widget-choose): Make sure pop-up window is large enough to display all the choices, as there's no way to scroll it. --- lisp/wid-edit.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el index 6b5c1fbd99f..eb402a95eae 100644 --- a/lisp/wid-edit.el +++ b/lisp/wid-edit.el @@ -254,7 +254,7 @@ minibuffer." ;; that corresponds to it. (save-window-excursion (let ((buf (get-buffer " widget-choose"))) - (display-buffer buf) + (fit-window-to-buffer (display-buffer buf)) (let ((cursor-in-echo-area t) keys (char 0) -- 2.30.2